Imports Microsoft.VisualBasic


Namespace Logica.ModuloSistema
    Public Class Mensaje

        Private _id As String
        Private _asunto As String
        Private _prioridad As String
        Private _cuerpo As String
        Private _fkUsuario As String
        Private _remitente As String
        Private _fecha As String

        Public Sub New(ByVal id As String, ByVal asunto As String, ByVal prioridad As String, ByVal cuerpo As String, ByVal fkUsuario As String, ByVal remite As String, ByVal fecha As String)
            Me._id = id
            Me._asunto = asunto
            Me._prioridad = prioridad
            Me._cuerpo = cuerpo
            Me._fkUsuario = fkUsuario
            Me._remitente = remite
            Me._fecha = fecha
        End Sub

        Public Property fecha() As String
            Get
                Return _fecha
            End Get

            Set(ByVal value As String)
                _fecha = value
            End Set
        End Property

        Public Property Remitente() As String
            Get
                Return _remitente
            End Get

            Set(ByVal value As String)
                _remitente = value
            End Set
        End Property

        Public Property id() As String
            Get
                Return _id
            End Get

            Set(ByVal value As String)
                _id = value
            End Set
        End Property

        Public Property Asunto() As String
            Get
                Return _asunto
            End Get

            Set(ByVal value As String)
                _asunto = value
            End Set
        End Property

        Public Property Prioridad() As String
            Get
                Return _prioridad
            End Get

            Set(ByVal value As String)
                _prioridad = value
            End Set
        End Property

        Public Property Cuerpo() As String
            Get
                Return _cuerpo
            End Get

            Set(ByVal value As String)
                _cuerpo = value
            End Set
        End Property

        Public Property FkUsuario() As String
            Get
                Return _fkUsuario
            End Get

            Set(ByVal value As String)
                _fkUsuario = value
            End Set
        End Property


    End Class

End Namespace
